/*
  Copyright (C) 2011, Kyungjoo Kim
  
  This file is part of LINAL (LINear ALgebra)
  
  All rights reserved.

  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.
  
  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.
  
  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  Also add information on how to contact you by electronic and paper mail.
  
  
  Kyungjoo Kim
  iamkyungjoo@gmail.com
*/
#include "linal/common.hxx"
#include "linal/util.hxx"

#include "linal/format.hxx"

#include "cublas.h"
#include "linal/device/obj.hxx"
#include "linal/device/gpu/obj.hxx"

#include "linal/device/gpu/operation.hxx"

namespace linal {
  namespace gpu {
    namespace internal {

      int gemm( int transa,  int transb,
                FLA_Obj &alpha,  Flat_Obj_ &A,  Flat_Obj_ &B,
                FLA_Obj &beta,   Flat_Obj_ &C ) {
        FLA_Gemm_external_gpu( transa, transb, 
                               alpha, 
                               ~A, A.get_device_buffer(),
                               ~B, B.get_device_buffer(), 
                               beta,  
                               ~C, C.get_device_buffer() );
        return true;
      }
      int herk( int uplo,  int trans,
                FLA_Obj &alpha,  Flat_Obj_ &A,
                FLA_Obj &beta,   Flat_Obj_ &C ) {
        FLA_Herk_external_gpu( uplo, trans, 
                               alpha, 
                               ~A, A.get_device_buffer(), 
                               beta,
                               ~C, C.get_device_buffer() );
        return true;
      }
      int trmm( int side,  int uplo,  int trans,  int diag,
                FLA_Obj &alpha,  Flat_Obj_ &A, Flat_Obj_ &B ) {
        FLA_Trmm_external_gpu( side, uplo, trans, diag, 
                               alpha, 
                               ~A, A.get_device_buffer(), 
                               ~B, B.get_device_buffer() );
        return true;
      }
      int trsm( int side,  int uplo,  int trans,  int diag,
                FLA_Obj &alpha, 
                Flat_Obj_ &A,  Flat_Obj_ &B ) {
        FLA_Trsm_external_gpu( side, uplo, trans, diag, 
                               alpha, 
                               ~A, A.get_device_buffer(), 
                               ~B, B.get_device_buffer() ); 
        return true;
      }
      int syrk( int uplo,  int trans,
                FLA_Obj &alpha,  Flat_Obj_ &A,
                FLA_Obj &beta,   Flat_Obj_ &C ) {
        FLA_Syrk_external_gpu( uplo, trans, 
                               alpha, 
                               ~A, A.get_device_buffer(), 
                               beta, 
                               ~C, C.get_device_buffer() );
        return true;
      }
    }
  }
}
